home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / chunky.lha / chunky / PutPixel32Z.ass < prev    next >
Encoding:
Text File  |  1980-12-07  |  504 b   |  32 lines
  1.  
  2. ; PutPixel32Z(chunky:a0:PTR TO chunky,x:d0:LONG,y:d1:LONG,colour:d2:LONG,z:fp0:F)(LONG)
  3.  
  4.     machine    mc68020
  5.     fpu    1
  6.  
  7.     xdef    _PutPixel32Z
  8.  
  9. _PutPixel32Z
  10.     cmpa.l    #0,a0
  11.     beq.s    .finish
  12.     tst.l    d0
  13.     blt.s    .finish
  14.     tst.l    d1
  15.     blt.s    .finish
  16.     cmp.l    (a0),d0
  17.     bge.s    .finish
  18.     cmp.l    (4,a0),d1
  19.     bge.s    .finish
  20.  
  21.     muls.l    (a0),d1
  22.     add.l    d0,d1
  23.     lsl.l    #2,d1        ; d1 now contains position in buffer
  24.     movea.l    (8,a0),a1
  25.     movea.l    (12,a0),a0
  26.     fcmp.s    (a0,d1.l),fp0
  27.     fbgt.s    .finish
  28.     move.l    d2,(a1,d1.l)
  29.     fmove.s    fp0,(a0,d1.l)
  30.  
  31. .finish    rts
  32.